home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh46b.d64 / ede 64 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  36KB  |  854 lines
  1. 2 REM  A. EDER
  2. 3 POKE808,225
  3. 4 DATA169,187,141,24,3,169,192,141,25,3,120,173,14,221,41,254,141,14,221
  4. 5 DATA173,15,221,41,254,141,15,221,169,2,141,6,221,169,0,141,7,221,169,255
  5. 6 DATA141,4,221,169,255,141,5,221,169,31,141,13,221,169,130,141,13,221,169
  6. 7 DATA65,141,14,221,141,15,221,88,169,96,141,149,192,141,156,192,96,169,3
  7. 8 DATA141,2,212,169,232,141,3,212,169,9,141,5,212,169,0,141,6,212,169,0,141
  8. 9 DATA9,212,141,10,212,234,234,169,36,141,12,212,169,165,141,13,212,169,3
  9. 10 DATA141,16,212,169,232,141,17,212,169,101,141,19,212,169,34,141,20,212
  10. 11 DATA234,169,65,141,4,212,141,18,212,169,17,141,11,212,234,165,15,141,24
  11. 12 DATA212,234,234,76,0,192,173,4,212,41,254,141,4,212,173,11,212,41,254,141
  12. 13 DATA11,212,173,18,212,41,254,141,18,212,96,1,1,120,72,138,72,152,72,172
  13. 14 DATA13,221,48,4,88,76,86,254,172,186,192,136,208,45,32,160,192,174,185
  14. 15 DATA192,202,208,3,174,32,193,189,66,193,141,0,212,141,7,212,141,14,212
  15. 16 DATA189,32,193,141,1,212,141,8,212,141,15,212,142,185,192,188,100,193,32
  16. 17 DATA136,192,140,186,192,173,252,7,73,1,141,252,7,88,76,188,254,169,71,141
  17. 18 DATA24,3,169,254,141,25,3,96,234,234,234,234,234,234,234,234,234,33,26
  18. 19 DATA29,29,32,32,34,39,29,29,29,32,32,26,26,26,19,19,39,39,29,32,39,26,32
  19. 20 DATA34,34,29,34,32,39,32,39,32,0,20,69,69,219,219,207,18,69,69,69,219,219
  20. 21 DATA20,20,20,137,137,18,18,69,219,18,20,219,207,207,69,207,219,18,219,18
  21. 22 DATA219,0,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0
  22. 23 FORN=0TO390:READEW:POKE49152+N,EW:NEXT
  23. 24 IF PEEK(43)=181 THEN:SYS49152:POKE53269,0
  24. 25 POKE3508,0:POKE43,181:POKE44,13:CLR
  25. 26 Z1=RND(-TI):SYS49227:DEFFNZU(EZ)=INT(RND(1)*(EZ-AZ+1))+AZ
  26. 27 DEFFNPR(SA)=1024+SA+ZE*40:DEFFNFA(SA)=55296+SA+ZE*40
  27. 28 CT=1:CF=1:CR=0:V=53248:SP=2040:GOTO741
  28. 29 ZE=ZE-1:FORN=0TO6STEP3
  29. 30 ZE=ZE+1:Z(N+2)=CR:IFCR=0THEN:Z(N+2)=FNZU(10)
  30. 31 Z(N+1)=FNZU(EZ):Z(N+3)=Z(N+1)*Z(N+2)
  31. 32 IFZ(N+2)>9THEN:POKEFNPR(SA+3),49:POKEFNFA(SA+3),FR%:Z(N+2)=Z(N+2)-10
  32. 33 IFZ(N+1)>9THEN:POKEFNPR(SA-1),49:POKEFNFA(SA-1),FR%:Z(N+1)=Z(N+1)-10
  33. 34 POKEFNPR(SA),(Z(N+1)+48):POKEFNFA(SA),FR%:POKEFNPR(SA+2),42:POKEFNFA(SA+2),FR%
  34. 35 POKEFNPR(SA+4),(Z(N+2)+48):POKEFNFA(SA+4),FR%
  35. 36 POKEFNPR(SA+6),61:POKEFNFA(SA+6),FR%:NEXTN:ZE=ZE-2:RETURN
  36. 37 POKEV+21,(PEEK(V+21)OR1):GOSUB105
  37. 38 POKEV+21,(PEEK(V+21)AND254):RETURN
  38. 39 FORN=0TO6:GETL$:NEXT:L$="":FE%=0
  39. 40 FORN=3TO9STEP3
  40. 41 Z$=STR$(Z(N)):ZI=LEN(Z$):I%=0:LO$=""
  41. 42 UH%=UH%+1:L$="":GETL$:IFL$=""ANDUH%=<UE%ANDFE%<1THEN42
  42. 43 IFUH%>UE%ORFE%>=1THEN49
  43. 44 IFASC(L$)<48ORASC(L$)>57THEN42
  44. 45 LO$=LO$+L$:I%=I%+1
  45. 46 IFUH%<UE%THEN:POKEFNPR(SA+7+I%),(VAL(L$)+48):POKEFNFA(SA+7+I%),FR%
  46. 47 IFI%<=(LEN(Z$)-2)THEN42
  47. 48 ZE=ZE+1:IFVAL(LO$)<>Z(N)THEN:FE%=FE%+1:GOSUB153
  48. 49 NEXTN
  49. 50 ZE=ZE-3:IFFE%<1THEN52
  50. 51 GOSUB90
  51. 52 IFUH%<UE%THEN54
  52. 53 GOSUB94:CL=CL+1
  53. 54 IFFE%<1ANDUH%<((BI%*UE%)/5)THEN:GOSUB98
  54. 55 RETURN
  55. 56 POKESP+3,38:POKESP+4,36:POKEV+6,X:POKEV+7,Y
  56. 57 POKEV+3,Y-38:POKEV+5,Y-38:POKEV+9,Y-15:POKEV+8,X+3
  57. 58 POKEV+21,(PEEK(V+21)OR30)
  58. 59 FORXH=X-3TOX+25:POKEV+2,XH:POKEV+4,XH:POKEV+8,2*X+8-XH:NEXTXH:RETURN
  59. 60 POKESP+3,38:POKEV+6,X:POKEV+7,Y
  60. 61 POKEV+2,X-3:POKEV+3,Y-38
  61. 62 POKEV+4,X-3:POKEV+5,Y-38
  62. 63 POKEV+21,(PEEK(V+21)OR14):RETURN
  63. 64 POKEV+21,(PEEK(V+21)AND224)
  64. 65 POKESP+4,PEEK(SP+4):POKESP+3,38
  65. 66 POKEV+6,X:POKEV+7,Y
  66. 67 POKEV+2,X+25:POKEV+3,Y-38
  67. 68 POKEV+4,X+25:POKEV+5,Y-38
  68. 69 POKEV+8,X-20:POKEV+9,Y-15
  69. 70 POKEV+21,(PEEK(V+21)OR30):RETURN
  70. 71 POKESP+4,37:POKESP+3,38
  71. 72 POKEV+6,X:POKEV+7,Y
  72. 73 POKEV+2,X-25:POKEV+3,Y-38
  73. 74 POKEV+4,X-25:POKEV+5,Y-38
  74. 75 POKEV+8,X+20:POKEV+9,Y-15
  75. 76 POKEV+21,(PEEK(V+21)OR30):RETURN
  76. 77 POKESP+4,36:POKESP+3,39
  77. 78 POKEV+6,X:POKEV+7,Y
  78. 79 POKEV+2,X+25:POKEV+3,Y-38
  79. 80 POKEV+4,X+25:POKEV+5,Y-38
  80. 81 POKEV+8,X-20:POKEV+9,Y
  81. 82 POKEV+21,(PEEK(V+21)OR30):RETURN
  82. 83 POKESP+4,37:POKESP+3,39
  83. 84 POKEV+6,X:POKEV+7,Y
  84. 85 POKEV+2,X-15:POKEV+3,Y+15
  85. 86 POKEV+4,X-15:POKEV+5,Y+15
  86. 87 POKEV+8,X+20:POKEV+9,Y-15
  87. 88 POKEV+21,(PEEK(V+21)OR30):RETURN
  88. 89 V=53248:SP=2040:POKEV+21,(PEEK(V+21)AND225):RETURN:REM EDE AUS
  89. 90 POKEV+39,2
  90. 91 POKESP,33:POKEV+1,(50+8*ZE):IF(24+8*SA)>254THEN:POKEV,255:GOTO93
  91. 92 POKEV,(24+8*SA)
  92. 93 GOSUB37:RETURN
  93. 94 POKEV+39,0
  94. 95 POKESP,42:POKEV+1,(50+8*ZE):IF(24+8*SA)>254THEN:POKEV,255:GOTO97
  95. 96 POKEV,(24+8*SA)
  96. 97 GOSUB37:RETURN
  97. 98 POKEV+39,9
  98. 99 POKESP,43:POKEV+1,(50+8*ZE):IF(24+8*SA)>254THEN:POKEV,255:GOTO101
  99. 100 POKEV,(24+8*SA)
  100. 101 POKEV+21,(PEEK(V+21)OR1)
  101. 102 FORM=0TO40:POKEV+29,(PEEK(V+29)OR1):POKEV+23,(PEEK(V+23)OR1):NEXTM
  102. 103 FORM=0TO30:POKEV+29,(PEEK(V+29)AND254):POKEV+23,(PEEK(V+23)AND254):NEXTM
  103. 104 GOSUB38:RETURN
  104. 105 SI=54272:FL=SI:FH=SI+1:W=SI+4:A=SI+5:H=SI+6:L=SI+24
  105. 106 FORM=1TO20
  106. 107 POKEL,15:POKEA,17:POKEH,17:POKEFH,19:POKEFL,137:POKEW,17
  107. 108 FORT=1TO50:NEXTT:POKEV+29,(PEEK(V+29)OR1):POKEV+23,(PEEK(V+23)OR1)
  108. 109 POKEW,0:POKEA,0:POKEH,0
  109. 110 POKEL,15:POKEA,17:POKEH,17:POKEFH,39:POKEFL,18:POKEW,17
  110. 111 FORT=1TO20:NEXTT:POKEV+29,(PEEK(V+29)AND254):POKEV+23,(PEEK(V+23)AND254)
  111. 112 POKEW,0:POKEA,0:POKEH,0:NEXTM:RETURN
  112. 113 POKEV+29,PEEK(V+29)OR128:POKEV+23,PEEK(V+23)OR128:POKEV+21,PEEK(V+21)OR128:RETURN
  113. 114 POKEV+29,PEEK(V+29)OR64:POKEV+23,PEEK(V+23)OR64:POKEV+21,PEEK(V+21)OR64:RETURN
  114. 115 POKEV+46,10:POKESP+7,50:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
  115. 116 POKEV+29,PEEK(V+29)OR32:POKEV+23,PEEK(V+23)OR32:POKEV+21,PEEK(V+21)OR32:RETURN
  116. 117 POKEV+45,9:POKESP+6,51:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN
  117. 118 POKEV+44,11:POKESP+5,45:POKEV+10,X:POKEV+11,Y:POKEV+21,PEEK(V+21)OR32:RETURN
  118. 119 POKEV+45,13:POKESP+6,50:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN
  119. 120 POKEV+46,0:POKESP+7,50:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
  120. 121 POKEV+46,4:POKESP+7,47:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
  121. 122 POKEV+46,3:POKESP+7,49:POKEV+14,X:POKEV+15,Y
  122. 123 POKEV+21,PEEK(V+21)OR128:RETURN
  123. 124 POKEV+44,11:POKEV+45,1:POKESP+5,45:POKESP+6,44:POKEV+10,X:POKEV+11,Y
  124. 125 POKEV+12,X+25:POKEV+13,Y-10:POKEV+21,PEEK(V+21)OR96:RETURN
  125. 126 POKEV+46,1:POKESP+7,48:POKEV+14,X:POKEV+15,Y:POKEV+21,PEEK(V+21)OR128:RETURN
  126. 127 POKEV+46,8:POKESP+7,46:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
  127. 128 POKEV+46,1:POKESP+7,48:POKEV+14,X:POKEV+15,Y:GOSUB113:RETURN
  128. 129 POKEV+44,1:POKESP+5,41:POKEV+10,X:POKEV+11,Y:POKEV+21,PEEK(V+21)OR32:RETURN
  129. 130 POKEV+45,10:POKESP+6,49:POKEV+12,X:POKEV+13,Y:POKEV+21,PEEK(V+21)OR64:RETURN
  130. 131 POKEV+44,1:POKESP+5,40:POKEV+10,X:POKEV+11,Y:GOSUB116:RETURN
  131. 132 POKEV+44,4:POKESP+5,47:POKEV+10,X:POKEV+11,Y:GOSUB116:RETURN
  132. 133 POKEV+45,1:POKESP+6,41:POKEV+12,X:POKEV+13,Y:GOSUB114:RETURN
  133. 134 POKEV+29,PEEK(V+29)AND31:POKEV+23,PEEK(V+23)AND31:REM SPRITES OHNE EDE AUS
  134. 135 POKEV+21,PEEK(V+21)AND31:RETURN
  135. 136 S=0:N=0:M=2112:X=120:Y=100
  136. 137 FORN=0TO62:READS:POKEM+N,S:NEXTN
  137. 138 IFM<3264THEN:M=M+64:GOTO137
  138. 139 RETURN
  139. 140 POKEV+40,1:POKEV+41,0:POKEV+43,1:POKEV+42,1:POKESP,33:POKESP+4,37
  140. 141 POKESP+3,39:POKESP+2,35:POKESP+1,34
  141. 142 POKEV+29,(PEEK(V+29)OR30):POKEV+23,(PEEK(V+23)OR30):RETURN
  142. 143 GOSUB29:GOSUB39:GOSUB89:GOSUB134
  143. 144 RC=0:GETS$:IFUH%>UE%ORFE%>0ANDS$<>"[135]"THEN:RC=1:GOSUB150
  144. 145 RETURN
  145. 146 CO=15:CS=15
  146. 147 POKE53280,CO:POKE53281,CS:PRINT CHR$(142)CHR$(147);:RETURN
  147. 148 GETS$:IFS$<"0"ORS$>"9"THEN148
  148. 149 RETURN
  149. 150 CM=CE(2):CX=2:FORN=3TO9:IFCE(N)>=CMTHEN:CM=CE(N):CX=N
  150. 151 NEXT:IFCM>=3ORCL>=5THEN:RC=2
  151. 152 RETURN
  152. 153 CE(Z(N-1))=CE(Z(N-1))+1:CE(Z(N-2))=CE(Z(N-2))+1:RETURN
  153. 154 DATA0,96,56,0,56,224,17,31,224,59,153,48,31,61,184,14,63,248:REM TEUFEL
  154. 155 DATA4,51,152,4,24,48,8,15,234,8,7,198,8,3,131,4,15,231,2,31,254,3,63,252
  155. 156 DATA1,254,252,0,252,124,0,62,252,0,31,248,0,31,240,0,124,62,0,56,28
  156. 157 DATA56,0,0,120,0,0,248,0,96
  157. 158 DATA252,0,254,127,7,158,112,255,139,48,255,136,31,255,248,31,128,252
  158. 159 DATA63,192,252,63,255,254,62,191,174,61,182,183,125,182,183,59,118,213
  159. 160 DATA59,118,213,27,50,214,25,186,166,13,154,172,4,146,40,2,73,80
  160. 161 DATA0,0,0,0,0,0,0,0,0,0,0,0,15,0,240,15,0,240
  161. 162 DATA15,0,240,0,0,0,0,255,0,0,255,0,0,0,0,0,0,0
  162. 163 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  163. 164 DATA0,0,0,56,0,0,92,0,0,219,0,0,182,128,0,237,192,0
  164. 165 DATA83,96,0,86,248,0,21,184,0,11,96,0,2,192,0,2,128,0
  165. 166 DATA0,128,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00
  166. 167 DATA0,0,0,0,0,28,0,0,58,0,0,219,0,1,109,0,3,183
  167. 168 DATA0,6,154,0,31,106,0,29,168,0,6,208,0,3,64,0,1,64
  168. 169 DATA0,1,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00,0,0,0,0,0,0,0,0,00
  169. 170 DATA62,0,240,127,135,252,255,255,254
  170. 171 DATA255,255,255,255,255,255,251,187,223,243,185,207,119,155,223,119,217,207
  171. 172 DATA115,219,239,123,219,239,123,219,239,123,153,207,123,189,158,243,189,206
  172. 173 DATA247,185,158,231,187,60,195,11,28,193,137,8,128,0,0,0,0,0
  173. 174 DATA0,1,252,0,7,254,0,31,255,0,63,255,0,127,255,0,255,255 
  174. 175 DATA7,255,239,15,255,206,63,255,158,63,255,158,127,251,156,127,247,190
  175. 176 DATA127,247,158,255,183,14,247,119,62,238,215,31,238,211,31,238,195,31
  176. 177 DATA108,198,62,204,206,28,204,88,24
  177. 178 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  178. 179 DATA0,0,1,8,224,1,140,240,1,206,184,1,254,172,15,255,171
  179. 180 DATA255,255,107,255,255,27,255,174,7,255,172,15,255,164,15,255,128
  180. 181 DATA5,255,128,4,239,128,6,201,128,0,109,192,0,0,0,0
  181. 182 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,16,128,7
  182. 183 DATA49,128,15,115,128,29,127,128,53,255,240,85,255,255,213,255,255
  183. 184 DATA214,117,255,216,53,255,192,37,255,224,1,255,224,1,255,64,1
  184. 185 DATA246,192,1,146,0,3,182,0,0
  185. 186 DATA0,0,0,0,0,0,0
  186. 187 DATA2,0,0,36,0,0,79,0,2,88,3,193,112,15,241,240,28
  187. 188 DATA24,248,59,220,120,52,44,60,109,150,60,108,86,60,55,150,120
  188. 189 DATA 59,44,120,24,92,240,7,185,240,15,255,224,63,255,224,127,255
  189. 190 DATA128,192,0,0
  190. 191 DATA0,0,0,12,249,128,7,255,0,4,113,0
  191. 192 DATA9,36,128,8,32,128,12,113,128,15,255,128,15,175,128,25,220
  192. 193 DATA192,126,251,240,247,7,120,231,255,56,231,255,56,231,255,56,179
  193. 194 DATA254,104,67,254,16,1,252,0,3,254,0,5,141,0,9,84,128
  194. 195 DATA3,192,0,0,128,0,1,198,0,2,239,0,3,223,0,3
  195. 196 DATA230,0,3,192,0,6,0,0,0,224,0,1,240,0,3,248,0
  196. 197 DATA2,232,0,6,236,0,5,244,0,7,252,0,7,252,0,3,252
  197. 198 DATA0,1,250,96,2,101,147,5,10,12,0,0,0,0,0,12
  198. 199 DATA0,7,14,0,15,143,0,15,135,0,7,115,3,240,252,31,254
  199. 200 DATA252,63,255,252,127,255,180,127,255,120,127,254,120,191,254,48,159
  200. 201 DATA252,48,71,244,16,64,42,0,64,0,0,128,0,0,131,3,0
  201. 202 DATA100,132,128,24,120,0,0,0,0
  202. 203 DATA1,160,0,15,64,0,31
  203. 204 DATA128,0,55,192,0, 63,192,0, 63,128,24,61,128,60,27,192,126
  204. 205 DATA7,224,126,31,240,126,39,240,126,15,248,124,9,248,124,30,248
  205. 206 DATA120,63,248,248,63,240,240,63,241,224,63,227,192,31,207,0,63
  206. 207 DATA254,0,80,248,0
  207. 208 DATA0,0,0,0,0,0,0,0,0,0,0
  208. 209 DATA0,0,0,0,0,0,0,3,252,0,12,3,128,16,0,64,32
  209. 210 DATA0,0,64,0,0,64,240,0,135,254,0,159,255,129,191,255,247
  210. 211 DATA191,255,222,127,255,248,31,255,128,7,254,0,4,242,0,6,3,0
  211. 212 DATA0,0,0,0,0,48,0,0,72,0,0,134,0,0,143
  212. 213 DATA0,0,134,0,0,68,0,0,34,0,0,48,0,0,48,0,0
  213. 214 DATA24,0,62,12,129,255,206,127,255,254,15,255,255,255,255,255,15
  214. 215 DATA255,255,255,255,254,127,255,252,7,192,240,0,0,0
  215. 216 DATA7,192,0,31,254,0,63,255,192,63,255,240,31,111,248,31,7,252,207:REM SCHM
  216. 217 DATA131,252,39,195,252,87,243,248,63,255,240,11,255,192,15,255,248
  217. 218 DATA3,127,252,1,191,254,2,239,254,2,135,255,0,3,255,0,0
  218. 219 DATA255,0,0,30,0,0,0,0,0,0
  219. 220 DATA1,16,0,1,176,0
  220. 221 DATA1,240,0,3,248,0,10,74,0,5,244,0,11,186,0,7,252
  221. 222 DATA128,7,252,192,7,252,192,7,252,192,15,254,96,15,254,96,15
  222. 223 DATA254,96,15,254,224,15,255,192,15,255,0,7,252,0,3,248,0
  223. 224 DATA6,236,0,0,0,0
  224. 225 DATA0,224,224,1,241,240,3,255,248,7
  225. 226 DATA223,124,7,255,252,7,241,252,3,241,248,1,255,240,0,255,160
  226. 227 DATA0,48,112,0,239,248,1,31,252,0,111,254,0,147,254,0,125
  227. 228 DATA254,0,254,254,1,254,254,1,253,252,0,255,248,1,127,240,0,159,192
  228. 229 GOSUB146
  229. 230 PRINT"[149][146]"SPC(36)"[169][146][169]";
  230. 231 PRINT" [223][223][146]"SPC(34)"[169][146][169]"
  231. 232 PRINT"  [223][223][146]"SPC(13)"[172][162][162][162][162][162][187]"SPC(12)"[169][146][169]"
  232. 233 PRINT"   [223][223][146]"SPC(13)"[158][223]   [146][169]"SPC(12)"[149][169][146][169]"
  233. 234 PRINT"    [223][223][146]"SPC(28)"[169][146][169]"
  234. 235 PRINT"     [223][223][146]"SPC(26)"[169][146][169]"
  235. 236 PRINTSPC(6)"[223][223][146]"SPC(24)"[169][146][169]":PRINT
  236. 237 PRINTSPC(15)"[172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][187]"
  237. 238 PRINTSPC(9)"     [146] [161][154]               [149][146][161]"
  238. 239 PRINT" [129][213][195][195][201]    [149] [146] [194]  [146] [161][154]       [146][169][223]      [149][146][161]"
  239. 240 PRINT" [129][194]  [129][146][194]    [149] [146][195][219][195] [146] [161][154]    [206][205][206]  [205]  [206][205][206][149][146][161] [129][162][162][162][162][162][162]"
  240. 241 PRINT" [194]  [129][146][194]    [149] [146] [194]  [146] [161][154] [206][205][206]  [205]   [205][206] [206] [149][146][161] [129] [146]     "
  241. 242 PRINT" [194]  [129][146][194]    [149]    [209][146] [161][154][206]  [205]       [205]   [149][146][161] [129] [146]     "
  242. 243 PRINT" [194] [146][169][129][203]    [149]     [146] [161]               [149][146][161] [129] [146]     "
  243. 244 PRINT" [194][169]  [129][169]  [146] [149]     [146] [161]               [149][146][161] [129] [144][146][194]  [129]  "
  244. 245 PRINT" [202]  [169]   [146] [149] [188][146][162][190] [146] [162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146] [129] [144][146][194] [194][129]  "
  245. 246 PRINT"   [169] [170]  [146] [149]     [146]"SPC(19)"[129] [146]  [144][194][129]  "
  246. 247 PRINT"  [169]  [170][209] [146]"SPC(25)" [144][146][194]  [129]  "
  247. 248 PRINT"     [170] [146][169]"SPC(25)" [144][146][194]  [129]  "
  248. 249 PRINT"     [170][146][169]  [150][169]   [164][164][164][164][164][164][164][164][164][164][164][164][164]   [223][146]   [129][223][223][146] [144][194][129]  "
  249. 250 PRINT"     [146][169]  [150][169]   [206]             [205]   [223][146]   [129][223][223][144][146][194][129]  "
  250. 251 PRINT"    [146][169]  [150][169]   [206]               [205]   [223][146]   [129][223][223]  "
  251. 252 PRINTSPC(6)"[150][169]   [206]                 [205]   [223][146]   [129][223]  "
  252. 253 PRINT"     [150][169]    [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]    [223][145][145]"
  253. 254 X=80:Y=190:GOSUB124:Y=215:FORX=225TO210STEP-1:Y=Y-1:GOSUB71:NEXTX
  254. 255 FORY=190TO154STEP-1:GOSUB71:NEXTY:GOSUB83:RETURN
  255. 256 GOSUB146
  256. 257 PRINTSPC(12)"[169][146]"SPC(8)"[169][146]"SPC(6)"[169][169]
  257. 258 [153]"  NEWFREUSRUSRFREWAITNEW   PRINT#nUSRFREPRINT#mnm    nPOSRNDWAIT    PRINT#nUSRPRINT#n  m    n";
  258. 259 [153]" COS       WAITNEWPRINT#n"[166]6)"mnmn    mnmn"[166]6)"m  n
  259. 260 PRINT"[167]         [188][146]  [152]n    m  [190]  [188][146] [152]m"SPC(9)"mn
  260. 261 [153]"ABS          WAITINTPRINT#(null)  INT         WAITRND PRINT#(null)         PRINT#(null)
  261. 262 PRINT"[161]          [146][161]   [181]         [146][161]           "
  262. 263 PRINT"[181]          [182][190] [188][146]      [187]  [172][146]           "
  263. 264 PRINT"[161]          [146][161]   [146][180] [158]  [158]  [146] [149] [169][146]q   [175][185][162][185][175]   [190] [188]
  264. 265 [153]"ABS          WAITINTRNDVERIFY *WAIT      WAIT VERIFY WAITSTEP   COS     LOGWAIT +   WAITSGN";
  265. 266 [153]"THEN          WAIT  VERIFY WAIT  COS LOGWAIT   VERIFY WAIT   GET       WAITINT RND *
  266. 267 PRINT" [187] [172][149]  [172][149][169]  [146][181]  [149] [146] [170]   [146][180]  [149] [146]   [180]       [182][146]  [149][180]
  267. 268 [153]"  USR VERIFY  STEPWAITSTEPLOGCOS"[166]6)"RND *WAIT"[166]7)"INT       WAITGET  VERIFYSGN
  268. 269 PRINT"[154] [183][146][162][175][149]  [146][169]"SPC(19)"[170]       [146][180] [153][166][166][166]
  269. 270 [153]"CONT    VERIFY  CONTFREWAITNEWANDPOSNEWFREUSRTAB(    LOGWAIT"[166]8)"       WAIT PRINTSPC(SPC(
  270. 271 PRINT"[154]    [149]  [154]             [188][146]   [153][166][166][166][146] [165]     [170]
  271. 272 [153]"CONT    VERIFY  CONT              WAITGET PRINTSPC(SPC(SPC(WAIT  INT     ABS
  272. 273 PRINT"[154][183][184][162][185][149]  [154]   [164][175]          [153][166][166][166][166][146]  [161]     [146][181]
  273. 274 [153]"    VERIFY  WAIT CONTUSR    FREAND       WAITGET     +     
  274. 275 PRINT"    [149]  [146]"SPC(9)"[154][187]      [146]"SPC(6)"    [170]
  275. 276 [153]"    VERIFY  WAIT"[166]10)"CONT      WAITINT     SGN   ABS
  276. 277 PRINT"    [149]  [146]"SPC(9)"[154][170]      [146][161]     [181]   [146][161]
  277. 278 [153]" PRINTSPC(SPC(SPC(VERIFYRND PRINTWAITSPC(SPC("[166]7)"CONTABS      ABSWAIT PRINTSPC(SPC(SPC(WAIT GET   WAITFN
  278. 279 PRINT"  [153][166][166][166][166][166][166][166]"SPC(6)"[154][161]      [170][146]  [153][166][166][166][146]  [149]  
  279. 280 [153][166]15)"CONTSGN       WAIT"[166]6)"RNDVERIFY *
  280. 281 X=90:Y=200:GOSUB132:Y=150:FORX=75TO150STEP.5:Y=Y+.1:GOSUB126:NEXTX:RETURN
  281. 282 GOSUB146
  282. 283 PRINT"        "SPC(9)"[158][205][190]  [188][146][206]
  283. 284 [153]"        "[166]7)"SYSLENLENABS    WAITSGNLENLENLENLEN
  284. 285 PRINT"        "SPC(9)"[158][206][187]  [172][146][205][175][162][183]   [183][184][146][175]     [185]
  285. 286 [153]"  TOANDPOSNEWUSRTAB(     USRWAITNEWPOSPOSANDANDSYSFREFRE COS         LOGWAIT   COS LOG
  286. 287 PRINT" [190]                  [188][190]           [146][161] [182]   [146][181]";
  287. 288 PRINT"[161]";:FOR Z=1 TO 33:PRINT" ";:NEXT
  288. 289 PRINT"[146]  [187] [172]
  289. 290 [153]"INT";:[129] Z[178]1 [164] 33:[153]" ";:[130]
  290. 291 [153]"WAITINT  VERIFYSGN
  291. 292 PRINT"[180]";:FOR Z=1 TO 33:PRINT" ";:NEXT
  292. 293 PRINT"[182][146]  [149][181][146][165]
  293. 294 [153]"SGN";:[129] Z[178]1 [164] 20:[153]" ";:[130]
  294. 295 [153]"b            ABSWAIT PRINTSPC(VERIFYGETWAITINT
  295. 296 PRINT"[181]                   [172][146][170]            [146][180]  [153][166][166]
  296. 297 [153]"+                 ANDWAITFRE  RND          *WAITANDPOSAND
  297. 298 PRINT" [187]              c[146]  [158]h   [184][185]      [185][162][190]   [188]
  298. 299 [153]"  RND              ABSWAIT SYSh   PRINTNOT GETVERIFY    ABSWAIT ABS     WAITINT
  299. 300 PRINT"   [162]              [146] [153][168][168]  [154][175][184] [149][181]  [172][146]  [180]     [170]
  300. 301 [153]"     NEW           ABSWAIT  CONTANDUSR ANDWAITFRE VERIFYABS  WAITSGN  SGN     +
  301. 302 PRINTSPC(6)"[187]  [149]     [149]   [146][180] [154][190] [172][146] u[184][146]i[149][170]  [146][165][153]|[168][182]     [146][181]
  302. 303 [153]"  PRINTNOTNOTNOTSPC(WAIT RND*VERIFY   NEWVERIFYSTEPWAITSTEPRND*WAIT CONT+  WAIT  SYSj WAITkVERIFY+  WAITINTuFREWAITiRND   *
  303. 304 PRINT" [153][166][166][146]     [149][167]   [169][146][169]    [154][182]  [146][165]   [149][175][190]  [146][161][158]j.[146]k    
  304. 305 [153]"  uFREWAITi   VERIFY+   *WAIT PRINTNOTNOTSPC( CONTSGN  WAIT  VERIFYUSRFREAND   *WAITUSRSYSFRE  SGN +
  305. 306 PRINT"  [158]j [146]ku[184][146]i[149][182] s [146][181]     [154]  [170][146] [153][166][168]   [149][183][172][153][146][166][168]|  [149][190][146][191][188]
  306. 307 [153]"   SYSTAB( j.WAITkVERIFYGET   ABSWAIT uFREWAITiCONT+   WAITPOS   uFREWAITi    uFREWAITi VERIFYLOG
  307. 308 PRINT"u[184][146]i   [158][184][149][185]     [146] [158]j [146]k [154][187]   [188][146]  [158]j [146]k    j.[146]k
  308. 309 [153]"j.WAITk VERIFYANDCOS       LOGWAIT     CONT     FREWAITAND    PRINTNOT  SYSNEW
  309. 310 PRINT" [183]   [149][162][185][175] [146][190][187]  [175][162][146]    [154][188]       [146][185][175]  [153][166][166][166][168]
  310. 311 [153]"  (null)NOTNOTNOT     VERIFYRND*WAIT   PRINTNOTNOT(null) CONTGET        LOGON"
  311. 312 X[178]25:Y[178]230:[141]124:X[178]250:Y[178]190:[141]127:[142]
  312. 313 [141]146
  313. 314 [153]"SYSm POSFREWAITPOS n"[166]16)"TOANDPOSNEWNEWFREFREFREWAITNEWNEWPOSAND GET   ";
  314. 315 [153]"WAIT SYSCOS(null) (null)LOGWAIT                COS            LOGWAIT PRINT#   ";
  315. 316 [153]"SYSWAITTHEN     WAITFNLENLEN            +              WAITINTPRINT#GETSYSPEEKPRINT#WAITABS";
  316. 317 [153]" SYSRNDMID$LEN(null)*WAIT               ABS              WAITGETPRINT#   ";
  317. 318 [153]"SYSWAITn FRENEWWAITFRE m"[166]14)"+              ABSCOS LOG";
  318. 319 [153]"WAIT   SYSb   m    *NEWNEWNEWNEWNEW                  WAITSGN   ";
  319. 320 [153]"WAIT   SYSb    m   GET     PRINT#    SGN             WAIT RNDVERIFY *";
  320. 321 [153]"WAITANDANDFREFREFRE   WAITINT    POKE     PRINT# SYS{{PRINT# INT            WAITGET  VERIFY 
  321. 322 PRINT"      [152]       [151] [146]b [146]b [190] [188][146] [188]           [172][146]   [149][184][154][164]";
  322. 323 PRINT"[151]  [152] [158]{{[152] [158]{[152] [150] [151][146]{[150] [151][146]{[150] [151][162][162][162][162][162]   [146][180] [180]   [149]  [146][188][185][146][184][154][185][184][183][163]   ";
  323. 324 PRINT"[151] [158]{[152]      [150]     [146][175] [153][166][166] [187][149] [172][146] [153][166][187]  [172][149][146]  [154][183]      [175][162][146][184]";
  324. 325 PRINT"[151]  [152] [158]{{[152] [146]  [150][184][184][184][190]   [188][153][146][166]  [149] [146] [153][166]| [183][154][175][162] [149]  [154]    [164][146][184]
  325. 326 [153]"  PRINT#    WAIT  PRINTSPC(SPC(ABS     WAITINT  VERIFY WAIT   CONTPOS    VERIFY  CONT POSWAITFREUSRANDNEWAND
  326. 327 PRINT" [175][185][162][162][185][175][153][166][166] [161]     [146][161]    [154][185]      [149]  [146]   [190]   [188]
  327. 328 [153]"COS      LOGWAIT   RND*VERIFY RND WAITINT  CONTPOS        VERIFY  WAIT  THEN     WAITFN
  328. 329 PRINT"        [146][165]    [149] [169][172][146] [154][185]        [172][146][183][149]  [146]   [187]   [172]
  329. 330 [153]"        WAITSGN    VERIFY WAITSTEP CONTCOS       *WAITTAB(  VERIFY  WAIT    FREVERIFYNEWWAITFRE
  330. 331 PRINT"[187]      [172][146]   [153][166][166][149] [153][146][166][154][190]      [172][146][163]    [149]  [146]   [153][166][166][166]
  331. 332 [153]" RND*VERIFYSGN+RND*WAIT  PRINTSPC(SPC(SPC(SPC(VERIFY CONTINT      *WAIT"[166]6)"VERIFY  WAIT     PRINTSPC(SPC(SPC(SPC(
  332. 333 PRINT" [166][166][149][180][170][146]   [153][166][166][166][166][166] [154]       [146]    [153][166][166] [149]  
  333. 334 [153]"PRINTSPC(SPC( VERIFYSGN+WAIT"[166]8)"CONTGET      +WAIT  PRINTSPC(SPC(| SPC(VERIFY  
  334. 335 PRINT"   [180][170][146]    [153][166][166][166] [154][181]      [182][146]     [153][166][166][166][166][166][166]
  335. 336 [153]"   VERIFYSGN+PRINTSPC(SPC(WAIT SPC(SPC(   CONTSGN      +WAIT   PRINTSPC(SPC(SPC(SPC(SPC(
  336. 337 PRINT"  [166][149][180][172][153][166][146]"SPC(7)"[154]        
  337. 338 Y[178]210:[129]X[178]250[164]220[169][171].5:Y[178]Y[171].5:[141]127:[130]X:[142]
  338. 339 [141]146
  339. 340 [153]
  340. 341 [129]Z[178]1[164]2:[153]"  DEF  WAIT"[166]22)"       ":[130]
  341. 342 [153]"DEF     (null)WAIT    WAIT    RND"[166]11)"       "
  342. 343 [153]"DEF              WAIT"[166]16)"ANDANDAND
  343. 344 PRINT"[150]                 [146]"SPC(15)"[190]   [188]
  344. 345 [153]"CLR             SYS{ SYS{ WAIT"[166]6)"COS   LOGWAIT   COS     LOG
  345. 346 PRINT"[156]        [158] b       [146]"SPC(6)"     [146]  [170]       [146][180]
  346. 347 [153]"CLR POKEWAITANDlCLR POKEWAITANDlCLR  SYS b   SYS{ POKEWAIT{ WAIT     ABS     WAITINT +       WAITSGN
  347. 348 PRINT"[156] [146] [151][180][156] [146] [151][180][156]          [146][169]"SPC(6)"     [146]   [187] [172][149] [187] [172]
  348. 349 [153]"CLR        WAIT b   POKEWAIT{ WAITSTEP STEPnWAITINT ABSmPOSVERIFY POSWAIT      WAITNEWVERIFY WAIT FRE
  349. 350 PRINT"[156]        [146] b    [146][169] [169]n[146][169]   m[149] [146]    [190]    [188]
  350. 351 [153]"CLR SYSANDlCLR POKEWAITANDlCLR       WAITSTEP    WAIT       VERIFY WAIT   COS      LOG
  351. 352 PRINT"[156] [158] [180][156] [146] [151][180][156]  [152]   [146][169] [151]no[183][183]p[183][183][183][183]p[183][183][149] [151][146]pm[182]        [146][181]
  352. 353 [153]"CLR        PRINT#q WAITSTEP POKEn SGN  + CONTSTEP POKEWAIT+   + INT        WAITGET
  353. 354 PRINT"[156]        [152] [146][169] [151]n  [149]             [146] [182]        [146][181]
  354. 355 [153]"CLR POKEWAITANDlCLR SYSANDlCLR  PRINT#WAITSTEP  POKEb VERIFY  WAIT  CONTSTEP     WAIT  VERIFY  WAIT         
  355. 356 PRINT"[156] [146] [151][180][156] [158] [180][156] [146][169]   [151]b[149]   [146] [154][169]       [146] [149]   [146][182] [146][190][149]  [146][188] [146][181]
  356. 357 [153]"CLR       WAIT"[166]8)"CONTSTEP         WAIT"[166]6)"VERIFY  STEP
  357. 358 PRINT"[156] [129]   [156]  [146][169]  [169]nn[146][161] [154][169]           [146] [181]mm[149]  [146][169]
  358. 359 [153]"CLR FOR   CLR WAITSTEP  STEPnn WAITGETCONTSTEP             WAIT mmVERIFY  
  359. 360 PRINT"[156] [129]q  [156][146][169]  [169]nn[146][169] [154][169]               [146] mm[149] 
  360. 361 [153]"CLR FOR  WAITSTEP      WAIT CONTSTEP                 WAIT    
  361. 362 PRINT"[156] [129] [146][169]       [154][169]                      
  362. 363 X[178]170:Y[178]200:[141]128:X[178]233:Y[178]89:[141]130
  363. 364 Y[178]151:[129]X[178]230[164]135[169][171]1:[141]129:[130]X:[142]
  364. 365 [141]146
  365. 366 [153]:[153]:[153]
  366. 367 [153]" STOP";:[129] Z[178]1 [164] 39:[153]"TO";:[130]
  367. 368 [153]"     (null)(null)  (null)(null)
  368. 369 PRINT"    [206]  [205][206]  [205]
  369. 370 [153]"   (null)   (null)(null)   (null)
  370. 371 PRINT"   [205]   [205][206]   [206]
  371. 372 [153]"    (null)  (null)(null)  (null)
  372. 373 PRINT"     [205][206]  [205][206]
  373. 374 [153]"  SYSSTEP";:[129] Z[178]1 [164] 29:[153]" ";:[130]
  374. 375 [153]"
  375. 376 PRINT"   [146][169]   [146][169]   [146][169]   [146][169]   [146][169]   [146][169]   
  376. 377 [129]Z[178]1[164]4:[153]"   WAIT     WAIT     WAIT     WAIT     WAIT     WAIT     ":[130]
  377. 378 [153]"   WAIT  STEP WAIT  STEP WAIT  STEP WAIT  STEP WAIT  STEP WAIT  STEP 
  378. 379 PRINT"[144][170] [158]";:FOR Z=1 TO 31:PRINT" ";:NEXT
  379. 380 PRINT"[146] [144][180]
  380. 381 [153]"+ SYS";:[129] Z[178]1 [164] 31:[153]" ";:[130]
  381. 382 [153]"STOP WAITSGN
  382. 383 PRINT"[170] [158]";:FOR Z=1 TO 31:PRINT" ";:NEXT
  383. 384 PRINT"[146] [144][180]
  384. 385 [153]"  SYS     STOPWAITuciuciSYS         STOPWAITuciuciSYS     
  385. 386 PRINTSPC(7)"[144]bwbbwb"SPC(9)"bwbbwb
  386. 387 [153]"POSPOSPOSPOSPOSPOSPOSjckjckPOSPOSPOSPOSPOSPOSPOSPOSPOSjckjckPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOS";
  387. 388 Y[178]170:X[178]50:[141]118:[151]53275,[194](53275)[176]192
  388. 389 Y[178]155:X[178]125:[141]119:X[178]165:[141]115:X[178]225:Y[178]210:[141]71:[142]
  389. 390 CO[178]0:CS[178]11:[141]147
  390. 391 [153]"STOP        POSWAITFREUSRTAB("[166]16)"TAB(USRFRENEW        ";
  391. 392 [153]"       WAITCOS  EDE IST IN DER UBAHN  STOPLOG       ";
  392. 393 [153]"      WAITCOS  EINER SCHNELLEN STADT.  STOPLOG      ";
  393. 394 [153]"     WAITCOS"[166]28)"LOG     ";
  394. 395 [153]"    WAITCOS"[166]30)"LOGCLOSECLOSECLOSECLOSE";
  395. 396 [153]"   WAITGET"[166]6)"       "[166]19)"STOPGET   ";
  396. 397 [153]"   WAIT   *          "[166]9)"STOP*"[166]10)"   ";
  397. 398 [153]"  WAITGET    (null)         "[166]10)"STOP(null)"[166]9)"GET  ";
  398. 399 [153]"  WAIT"[166]6)"m"[166]19)"m"[166]9)"  ";
  399. 400 [153]" WAITGET"[166]7)"m"[166]19)"m"[166]8)"GET ";
  400. 401 [153]" WAIT"[166]9)"m"[166]19)"m"[166]8)" ";
  401. 402 [153]"WAITGET   FORSTEP           WAIT"[166]6)"CONTSTEP           WAIT   STOPGET";
  402. 403 [153]"WAIT    FOR             WAIT"[166]6)"CONT             
  403. 404 PRINT"    [129] [146][169]    [146][169]    [146]"SPC(6)"[154] [146][169]    [146][169]    
  404. 405 [129]Z[178]1[164]4:[153]"    FOR WAIT     FOR WAIT     FOR WAIT"[166]6)"CONT WAIT      WAIT      ":[130]
  405. 406 [153]"    FOR (null)WAIT   STEP (null)WAIT   STEP WAIT"[166]6)"CONT (null)WAIT   CONTSTEP (null)WAIT   CONTSTEP "
  406. 407 [153]"    FOR             WAIT"[166]6)"CONT             
  407. 408 PRINT"    [129]  [146]q[129]       [146]q[129]  [146]"SPC(6)"[154]  [146]q[154]       [146]q[154]  
  408. 409 [153]"    FOR             WAIT"[166]6)"CONT             
  409. 410 FORZ=1TO2:PRINTSPC(6)"[144] [146]"SPC(7)" [146]"SPC(10)" [146]"SPC(7)" ":NEXT
  410. 411 Y=162:X=60:GOSUB119:X=110:GOSUB115:X=250:Y=214:GOSUB60:RETURN
  411. 412 GOSUB146
  412. 413 PRINTSPC(16)"[158]m [175][162][175] n"SPC(8)"[175][185][175]
  413. 414 [153]"         "[166]8)"SYSCOS   LOGWAIT"[166]8)"COS   LOG
  414. 415 PRINT"              [158][195][195][170]     [146][180][195][195][195]   [170]     [146][180]
  415. 416 [153]"         "[166]8)"SYSRND   *WAIT"[166]8)"RND   *
  416. 417 PRINTSPC(16)"[158]n [184][185][146][184] [162][184][184][184][146][162]    [184][149] [146][184]
  417. 418 [153][166]8)"ANDNEWFREUSRFREWAITNEWANDSYSn   b        WAIT    VERIFY 
  418. 419 PRINTSPC(7)"[190]       [188][146]   [158]b[182]       [146][181]
  419. 420 [153][166]6)"+         WAITSGN  SYSb RND VERIFY  POSWAITUSR
  420. 421 PRINTSPC(6)"[182]         [146][181]  [158]b  [183][149] [146][180]  [144]nmnm
  421. 422 [153][166]6)"+         WAITSGN"[166]7)"VERIFY WAITSGN STOPn nm m
  422. 423 PRINTSPC(7)"[187] [172][149][161] [169] [172][146][183]"SPC(11)"[144]m mn n
  423. 424 [153][166]8)"FRE VERIFYGET WAITSTEPFRE"[166]14)"STOPmnmn
  424. 425 PRINT" [129][169]               [146] [169]               [154][146][164][175][185][185]";
  425. 426 PRINT" [129] [146]    [146]    [149][161] [146] [129] [146]    [146]  [146]    [154][146][175][185][162][129] [154][183][163][160][129] [154]   [129] [154]    ";
  426. 427 PRINT" [129] [154]   [129] [154]   [129] [154]   [129] [154]   [129] [154] [129] [154]   [129] [154]   [129] [154]   [129] [154]   [129] [154]    ";
  427. 428 PRINT" [129] [154]   [129] [154]   [129] [154]   [129] [154]   [129] [154] [129] [154]   [129] [154]   [129] [154]   [129] [154]  [164][129] [154][185][162][146][184][183]";
  428. 429 PRINT" [129] [154]   [129] [154]   [129] [154]   [129] [154]   [129] [154] [129] [154]   [129] [154]   [129] [154][175][185][162][129] [154][146][183][163] [129] 
  429. 430 [153]"CONT FOR                 CONT FOR                 
  430. 431 PRINT"[144][171][129]                 [144][146]{[129]                 [144][146][179]
  431. 432 [153]" FOR               WAITSTEP                WAITSTEP
  432. 433 PRINT"[144][164][164][164]bwb[164][164][164][164][164][164][164]bwb[164][164][164][164][164]bwb[164][164][164][164][164][164][164]bwb[164][164][164][164][164][164]";
  433. 434 PRINT"  njckn   n  jck  n  jck  n   njckn   n
  434. 435 [129] Z[178]1 [164] 40:[153]"TAB(";:[130]
  435. 436 [129]XH[178]250[164]0[169][171]2:Y[178]65[170].1[172]XH:X[178]XH:[141]130:Y[178]206:X[178]250[171]XH:[141]131:[130]:[142]
  436. 437 CO[178]8:CS[178]8:[141]147
  437. 438 [153]
  438. 439 [153]"STOPm     CONT WAIT   STOPm  IM HOTEL  n    CONTSTEP WAITSTEP"[166]6)"STOPn";
  439. 440 [153]" m     CONT WAIT   STOPm  ZIMMER  n    CONTSTEP WAITSTEP"[166]6)"STOPn
  440. 441 PRINT"  m     [154] [146]   [144]m[175][175][175][175][175][175][175][175]n    [154][169] [146][169]"SPC(6)"[144]n
  441. 442 [153]"   m"[166]32)"n
  442. 443 PRINT"    m"SPC(14)"q"SPC(15)"[144]n
  443. 444 [153]"     m"[166]13)"b"[166]14)"STOPn
  444. 445 PRINTSPC(6)"m[175][175][175][175][175][175][175][175][175][175][175][175]b[144][175][175][175][175][175][175][175][175][175][175][175][175][175]n
  445. 446 [153][166]6)"+"[166]11)"PRINT#qbPRINT#q"[166]12)"STOPSGN
  446. 447 PRINTSPC(6)"[170]"SPC(9)"jcc[177]cck"SPC(10)"[144][180]
  447. 448 [153][166]6)"+"[166]26)"SGN
  448. 449 PRINT"  [193]   [144][170]"SPC(7)"       "SPC(12)"[144][180]   [193]
  449. 450 [129]Z[178]1[164]2:[153]"   WAIT   STOP+"[166]7)"       "[166]12)"STOPSGN    ":[130]
  450. 451 [153]" VERIFY   WAIT  STOP+"[166]26)"SGN  VERIFY   
  451. 452 PRINTSPC(6)"[144][170]"SPC(6)"[149][172][162][162][162][162][162][162][162][162][162][162][162][187]"SPC(7)"[144][180]
  452. 453 [153][166]6)"+ VERIFYNEWNEWNEWNEW GET    VERIFY      VERIFY WAITGET NEWNEWNEWNEW  STOPSGN
  453. 454 PRINTSPC(6)"[170]  [149]po  [152][169]    [152]      [152] [146]  [149]po   [144][180]
  454. 455 [153][166]6)"nUSRUSRVERIFYSQRlSTOPUSRPRINT#STEP             STOPWAITUSRVERIFYSQRlSTOPUSRUSRUSRm
  455. 456 PRINT"     n [156][169]   [149]                 [156]    [146] [144]m
  456. 457 [153]"    n CLRSTEP    VERIFY                 CLR     WAIT STOPm
  457. 458 PRINT"   n [156][169]     [146][169] [149]q"SPC(11)"q [156]      [146] [144]m
  458. 459 [153]"  n CLRSTEP";:[129] Z[178]1 [164] 30:[153]" ";:[130]
  459. 460 [153]"WAIT STOPm
  460. 461 PRINT" n"SPC(36)"m
  461. 462 [153]"n
  462. 463 X=60:Y=190:GOSUB124:X=205:Y=150:GOSUB115:RETURN
  463. 464 GOSUB146
  464. 465 PRINT"       
  465. 466 [153]"        WAIT"[166]9)"STEP          
  466. 467 PRINT"[149]       [146] [146]"SPC(7)"[169]            
  467. 468 [153]"VERIFY       WAIT"[166]9)"STEP              SGNui+
  468. 469 PRINT"[149]       [146]           [156]            [146]  [180][202][203][170]
  469. 470 [153]"VERIFY       WAIT           CLR            WAIT  SGN(null)(null)+
  470. 471 PRINT"[149] [144][146][186][175][149] [144][146][186][175][149] [146]           [156] [146]       [149]   [156] [146]  [180][206][205][170]
  471. 472 [153]"VERIFY STOPWAIT+ VERIFY STOPWAIT+ VERIFY WAIT"[166]11)"CLR WAIT       VERIFY   CLR WAIT  SGN  +
  472. 473 PRINT"[149]       [146]"SPC(11)"[156] [146]       [149]   [156] [146]    [144][180]
  473. 474 [153]"VERIFY       WAIT"[166]11)"CLR        VERIFY   CLR WAIT    STOPSGN
  474. 475 PRINT"[149]       [146]"SPC(18)"[144]n   m    [180]
  475. 476 [129] Z[178]1 [164] 34:[153]"TAB(";:[130]
  476. 477 [153]"SGNTAB(TAB(TAB(TAB(TAB("[166]10)"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"[166]14)"STOPSGN
  477. 478 PRINTSPC(9)"[169][146][169]    [146]    
  478. 479 [153][166]8)"STEPWAITSTEP     WAIT     
  479. 480 PRINT"[144]cccccq";:FOR Z=1 TO 21:PRINT" ";:NEXT
  480. 481 PRINT"[158][146]q[144]cccccccccccc";
  481. 482 PRINT"          [144][146]uci         [144][146]uci   
  482. 483 [153][166]8)"STEP        WAIT    STOPbwb"[166]11)"POKESTEP  WAITSTEP";
  483. 484 [153][166]7)"STEPWAITSTEP STOPjc WAIT    WAIT   STOPjck
  484. 485 PRINTSPC(6)"[169][146][169]     [146]     [146]"SPC(13)"[151][169]    [146][169]
  485. 486 [153]"   q";:[129] Z[178]1 [164] 22:[153]" ";:[130]
  486. 487 [153]"SYSWAITq
  487. 488 PRINT"  [144]h  [144][146]uci              [144][146]uci  [144][146]t  [151][169]      [146][169]
  488. 489 [153]"     STOPWAITbqb              STOPWAITbqb  
  489. 490 PRINT"     [144]jck"SPC(14)"jck  [151][169]        [146][169]
  490. 491 [151]53275,[194](53275)[176]96
  491. 492 Y[178]128:[129]XH[178]0[164]100[169]2:X[178]XH:[141]131:X[178]250[171]XH:[141]133:[130]XH:[142]
  492. 493 [141]146
  493. 494 [153]"WAIT"[166]36)"DEF  STEP";
  494. 495 [153]" (null)WAIT"[166]13)"       "[166]15)"DEF   ";
  495. 496 [153]"  WAIT"[166]13)"       "[166]15)"DEF   ";
  496. 497 [153]"  WAIT"[166]13)"       "[166]12)" WAIT DEFSTEP   ";
  497. 498 [153]"  WAIT"[166]31)"CLOSEDEFSTEP STOPWAITSQRANDDEF ";
  498. 499 [153]"   WAIT  WAIT"[166]27)"STEP DEF  STOPWAITTHEN DEF ";
  499. 500 [153]"     DEFSTEP WAIT"[166]23)"STEP  DEF     ";
  500. 501 [153]"      DEF   WAIT"[166]20)"STEPSTEP   SYS     ";
  501. 502 [153]"      DEF  FORABSWAIT"[166]17)"DEFSTEP      SYS  STOPWAITSQRANDSYS ";
  502. 503 [153]"       DEF   FOR WAIT"[166]14)"STEPCONT   CLR    SYS  STOPWAITTHEN SYS ";
  503. 504 [153]"STOPWAITFN      DEF   PRINT#  WAIT"[166]11)"NOT  PRINT#  CONT STOPWAIT{CONT CLR STOPWAITSQRANDCLR SYS     ";
  504. 505 [153]"STOPWAITo      CONT   PRINT#  WAIT  ANDANDAND     SPC(SPC(SPC(WAIT PRINT# CONT   CLR STOPWAITTHEN CLR SYS  STOPWAITSQRANDSYS ";
  505. 506 [153]"       CONT STOPWAIT{CONT PRINT#  WAIT STEPWAITSTEP WAIT    STOPLOG COS  PRINT#CONT STOPWAIT{CONT CLR    SYS  STOPWAITTHEN SYS ";
  506. 507 [153]"   STOPWAITANDl  CONT   PRINT# WAITSTEPSTEPWAITSTEP   WAIT GET"[166]7)"CONT  CLR STOPWAITSQRANDCLR SYS     ";
  507. 508 [153]"   WAIT STOPFN  CONT STOPWAIT{CONT PRINT#WAITSTEP  WAITq   WAITq WAIT     POSPOSPOSPOS CONT CLR STOPWAITTHEN CLR SYS  STOPWAITSQRANDSYS ";
  508. 509 [153]"       CONT  WAITSTEP   STOPPOSWAIT   NEWWAIT  GET  STEPWAITSTEP  WAIT CONTCLR    SYS  STOPWAITTHEN SYS ";
  509. 510 [153]"STOPWAITFN  STOPWAITANDl  CONT WAITSTEP"[166]11)"GET STEP      WAIT CLR   SYS     ";
  510. 511 [153]"STOPWAITo  WAIT STOPFN  CONTWAITSTEP STEP    WAIT"[166]7)"        WAIT  CLR  SYS FOR  SYS  ";
  511. 512 [153]"      WAITSTEP STEPWAITSTEP    WAIT    THENWAIT  STOP+WAIT    SGNWAIT    CLR SYS FOR  SYS  ";
  512. 513 [153]"     WAITSTEP STEPWAITSTEPSTOPTOTO TOTO WAIT   THENWAIT    PRINTSTEP    WAIT   CLRSYS FOR  SYS  ";
  513. 514 [153]"    WAITSTEP  WAITq        WAITq WAIT  THENWAIT   PRINTSTEPWAITSTEP    WAIT   SYSFOR  SYS  ";
  514. 515 [153]"   WAITSTEP              WAIT     PRINTSTEPWAITSTEP"[166]6)"WAIT   FOR SYS  ";
  515. 516 [153]"  WAITSTEP    STOP WAIT"[166]8)" WAIT    WAIT PRINT DEFWAITqPRINT        DEFWAITqPRINT WAIT   FORSYS  ";
  516. 517 [153]" WAITSTEP"[166]18)" WAIT PRINT            WAIT    SYS ";
  517. 518 [153]"WAITSTEP"[166]19)" WAIT  STOP WAIT"[166]8)" ONON"
  518. 519 Y[178]205:X[178]20:[141]115:X[178]65:[129]Y[178]200[164]150[169][171]1:X[178]X[170].5:[141]118:[130]Y
  519. 520 [151]53275,[194](53275)[176]32:[142]
  520. 521 [141]146
  521. 522 [153]"(null)WAIT"[166]11)"
  522. 523 PRINT" [223][146]"SPC(10)"       "SPC(19)"[169][223]";
  523. 524 PRINT"  [223][146]"SPC(9)"       "SPC(17)" [169]  ";
  524. 525 PRINT"   [146]  [150][169][146]"SPC(28)"    ";
  525. 526 PRINT"    [150][169]   [146]"SPC(25)"[169]    ";
  526. 527 PRINT"[151]     [150]     [146]"SPC(24)"[169]     ";
  527. 528 PRINT"[151] [159] b [151] [150]     [146]"SPC(20)" [169][146][169]     ";
  528. 529 PRINT"[151] [159] b [151] [150]      [169][146]"SPC(17)"    [154] b  ";
  529. 530 PRINT"[151] [159] b[160][151] [156]       [150]  [146]   [161][146]    [150][161][146]"SPC(6)"[169]     [154] b  ";
  530. 531 PRINT"[151]     [156][165][158]  [156] [158]  [156]    [169][160][160][160][160][150][169]    [169][169]      [154] b  ";
  531. 532 PRINT"[151]     [156][165][158]  [156] [158]  [156] [158] [146][161][161][146] [172][187][172][187][146]  [188][190][188][190][150][169]  [129]           ";
  532. 533 PRINT"[151] [159] b [151] [156]          [146] [172][187][172][187][146]  [188][190][188][190][156]   [129] [146]   [158]       ";
  533. 534 PRINT"[151] [159] b [151] [156][165][146]   [146]   [158] [146][161][161][146]     [146]"SPC(6)"[156][161][161][158] [129] [146]   [158]   [154] b  ";
  534. 535 PRINT"[151] [159] b [151] [156][165][146]   [146]      [146]"SPC(11)"[156]   [129]       [154] b  ";
  535. 536 PRINT"[151]     [156]       [146]"SPC(14)"[161][161][158] [129] [158]  [129] [146]   [154] b  ";
  536. 537 PRINT"[151]     [156][165][129]  [156] [158]  [156] [146]"SPC(14)"   [129] [158]  [129] [146]       ";
  537. 538 PRINT"[151] [159] b [151] [156][165][129] q[156] [158]  [156] [146]"SPC(17)"[129]           ";
  538. 539 PRINT"[151] [159][160]b [151] [156] [129]  [156]    [146]"SPC(17)"[129]       [154] b  ";
  539. 540 PRINT"[151] [159] b [151] [146]"SPC(30)" [154] b  ";
  540. 541 PRINT"[151]     [146]"SPC(30)" [154] b  ";
  541. 542 FORZ=1TO3:PRINT"[129]   [151]  [146]"SPC(30)"     ";:NEXT
  542. 543 PRINT"[129]   [151] [160]"
  543. 544 PRINT"[129]   [151]  [145][145]"
  544. 545 X=80:Y=200:GOSUB117:X=180:FORY=190TO210:X=X-1:GOSUB60:NEXTY:RETURN
  545. 546 GOSUB146
  546. 547 PRINT:PRINT
  547. 548 PRINTSPC(32)"[144][162][162][162][162][162][162]
  548. 549 [153][166]10)"       "[166]15)"SYS(null)   WAITSTEPSTOPGET
  549. 550 PRINTSPC(10)"       "SPC(14)"[158][206]     [144][161]
  550. 551 [153]"   ORLENLENLEN^WAIT         "[166]7)"CONT(null)LENLENRIGHT$    SYS(null) PEEK (null)STOPGET
  551. 552 PRINT"   b[176]cib[146]"SPC(16)"[154]b  b   [158]n     [144][161]
  552. 553 [153]"   bb bbWAIT"[166]15)"CONTSTEP WAITFREFRE WAIT"[166]8)"STOPGET
  553. 554 PRINT"   b[171]ckb[146]"SPC(15)"[154] [146][162][162] [146][169]"SPC(8)"[144][161]
  554. 555 [153]"   bb CLOSEbWAIT"[166]7)"STEP    WAIT   STOPlWAIT  SQRWAIT"[166]9)"GET
  555. 556 PRINT"   [173]ccc[189][146]"SPC(7)" [146]     [146]"SPC(16)"[144][161]
  556. 557 [153]"    PKWWAIT"[166]7)"STEP      WAIT  FORPOSPOSPOSPOSPOSPOS"[166]7)"STOPGET
  557. 558 PRINT"     [161]"SPC(8)" [158][146]q [146]   [158][146]q [146] [129][161][146]n    m[182][146]"SPC(6)"[144][161]
  558. 559 [153]"     GET"[166]8)"      WAITSTEP FORGETWAIT STOPTOTO TOTOFORABSWAIT"[166]6)"STOPGET
  559. 560 PRINT"     [161]   [169]     [144][186][146]  l[146]  [129][169]        [146]     [144][161]
  560. 561 [153]"   STEP      WAIT     WAIT"[166]6)"FOR SYSWAITqFOR WAIT     SYSWAITqFOR WAIT     STOPGET
  561. 562 PRINT"    [146] [144][161]     [144][146][164] [164][164] [146]"SPC(6)"[129]  [156][169]        
  562. 563 [153]"    WAIT STOPTOSTEP           WAIT    STOPlCLRSTEPWAITSTEP    STOPSQRWAIT   CLR
  563. 564 PRINT"  [169]        [146]    [158][146]qq [146]     [156] [146] [144][164][164][164] [164][164][164]  [156] 
  564. 565 [153]"STEP            WAIT     WAIT    CLRSTEP            
  565. 566 PRINT" [158][146]qq [146][169]     [158][146]qq     [146][169]  [156][169]                
  566. 567 [153]"    WAIT    STEP    WAIT  STOP WAIT    CLR SYSWAITqqCLR WAIT     STOPz    CLR SYSWAITqqCLR 
  567. 568 PRINT"            [146][169]"SPC(7)"[156]                  
  568. 569 [153]"   STOP WAIT"[166]6)" WAIT"[166]10)"CLR           CLR     WAITSTEP
  569. 570 PRINTSPC(25)"[144]  [146]"SPC(7)"  
  570. 571 X[178]40:Y[178]208:[141]77:Y[178]50:[129]X[178]250[164]119[169][171]1:Y[178]Y[170].3:[141]130:[130]X
  571. 572 [129]X[178]120[164]60[169][171]1:Y[178]Y[171].4:[141]130:[130]X:[142]
  572. 573 CO[178]4:CS[178]8:[141]147
  573. 574 [153]" ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[153]
  574. 575 [153]" WAITm"[166]36)"n  WAIT m"[166]10)"uccccccccccciWAIT"[166]11)"n  ";
  575. 576 [153]" WAIT  m"[166]9)"bGREENGROCERbWAIT"[166]10)"n   ";
  576. 577 [153]" WAIT"[166]8)"STOPb   jccccccccccckWAIT   STOPb"[166]9)" ";
  577. 578 [153]" WAIT"[166]8)"STOPb"[166]19)"b"[166]9)" ";
  578. 579 [153]" WAIT"[166]7)"STOPc>qSTOPcqSTOPcqSTOPcqSTOPcSYSqSTOPcSYSqSTOPcc=c=ccqSTOP>c"[166]8)" ";
  579. 580 [153]" WAIT"[166]9)"q q q q SYSq q ui ui q"[166]10)" ";
  580. 581 [153]" WAIT"[166]9)"q q q q SYSq q )) )) q"[166]10)" ";
  581. 582 [153]" WAIT"[166]9)"q q q q SYSq q jk jk q"[166]10)" ";
  582. 583 [153]" WAIT"[166]9)"q q q q SYSq"[166]9)"q"[166]10)" ";
  583. 584 [153]" WAIT"[166]9)"q q q   SYSq"[166]9)"q"[166]10)" ";
  584. 585 [153]" WAIT"[166]8)"q  q q    SYSq"[166]8)"q"[166]10)" ";
  585. 586 [153]" WAIT"[166]26)"q"[166]11)" ";
  586. 587 [129]Z[178]1[164]3:[153]" WAIT          "[166]28)" ";:[130]
  587. 588 [153]" WAIT"[166]38)"  WAIT"[166]13)"SYSANDANDANDANDANDAND"[166]19)" ";
  588. 589 [153]" WAIT    SYSANDANDANDANDANDANDANDANDSYSSTEPWAITqqqqqSYSSTEPWAITANDANDANDANDANDANDANDANDANDANDANDANDANDANDAND     ";
  589. 590 [153]" WAIT   SYSSTEPWAITqqqSYSWAIT   STEPWAITqqqqqSYSSTEPWAITSTEP STEP     WAIT"[166]7)"m    ";
  590. 591 [153]" WAIT  SYSSTEPWAITqqqqqSYSWAIT        WAITSTEP STEPWAITSTEPqqqqqWAIT"[166]7)"m   ";
  591. 592 [153]" WAIT nSYS       WAIT"[166]9)"STEPWAITSTEPqqqqqqqWAIT"[166]7)"m  ";
  592. 593 [153]" WAITn"[166]17)"SYS           WAIT"[166]8)"m ";
  593. 594 [153]"WAIT ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[143]   PRINT
  594. 595 X[178]75:Y[178]195:[141]124:X[178]170:Y[178]210:[141]77:[142]
  595. 596 CO[178]2:CS[178]14:[141]147
  596. 597 [153]"CONT ";:[129] Z[178]1 [164] 38:[153]" ";:[130]:[153]
  597. 598 [153]" WAIT"[166]38)"  WAIT"[166]11)"ucccccccccccccciWAIT"[166]11)" ";
  598. 599 [153]" WAIT"[166]11)"bEISEN SCHMIEDTbWAIT"[166]11)" ";
  599. 600 [153]" WAIT"[166]11)"jcccccccccccccckWAIT"[166]11)" ";
  600. 601 [153]" WAIT"[166]38)"  WAIT"[166]9)"(null)LENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"[166]15)" ";
  601. 602 [153]" WAIT"[166]9)"PEEK   PREISE   PEEK"[166]15)" ";
  602. 603 [153]" WAIT"[166]9)"PEEK            PEEK"[166]15)" ";
  603. 604 [153]" WAIT"[166]9)"PEEK            PEEK"[166]6)"VERIFY(null)"[166]8)" ";
  604. 605 [153]" WAIT"[166]9)"PEEK            PEEK"[166]5)"CLR   WAIT"[166]7)" ";
  605. 606 [153]" WAIT"[166]9)"MID$LENLENLENLENLENLENLENLENLENLENLENLEN(null)    CLRSTEP   (null)WAIT"[166]6)" ";
  606. 607 [153]" WAIT     VERIFYSTEP   WAIT"[166]16)"CLRSTEP     WAIT      ";
  607. 608 [153]" WAIT    VERIFYSTEP     WAIT LISTSTEP    WAIT DEFSTEP   WAIT CLRSTEP       WAIT     ";
  608. 609 [153]" WAIT    VERIFY q q q LISTSTEP      DEF     WAIT+CLR         WAITSGN    ";
  609. 610 [153]" WAIT    VERIFY       LIST        DEF STOPWAITqDEF STOPWAITqDEF WAIT     VERIFY WAIT"[166]8)" ";
  610. 611 [153]" WAIT    VERIFY ccccc LIST  ucci  DEF     WAIT     VERIFY WAIT"[166]8)" ";
  611. 612 [153]" WAIT    VERIFY WAIT      LIST  b  b  DEF     WAIT     VERIFY WAIT"[166]8)" ";
  612. 613 [153]" WAIT    VERIFY WAIT      LIST  b  b  DEF     WAIT     VERIFY WAIT"[166]8)" ";
  613. 614 [153]" WAIT    VERIFY       LIST  jcck  DEF     WAIT     VERIFY WAIT"[166]8)" ";
  614. 615 [153]" WAIT   ANDVERIFY JUNO  LIST        DEF     WAITANDANDANDANDANDVERIFY WAITANDANDANDANDAND    ";
  615. 616 [153]" WAIT  n VERIFY       LIST  MIELE STOPWAITLOG   COS   VERIFYucPOSWAITci   m   ";
  616. 617 [153]" WAIT n   STOPUSR   USR LIST        WAIT"[166]17)"m  ";
  617. 618 [153]" WAITn"[166]11)"STOPq    q"[166]19)"m ";
  618. 619 [153]"WAIT ";:[129] Z[178]1 [164] 38:[153]" ";:[130]
  619. 620 [151]53275,[194](53275)[176]64:X[178]228:Y[178]176:[141]133
  620. 621 [129]X[178]250[164]80[169][171]1:Y[178]120[170].2[172]X:[141]122:[130]:[142]
  621. 622 CO[178]0:CS[178]5:[141]147
  622. 623 [153]"STOP                IM KINO                 ";
  623. 624 [129]Z[178]1[164]6:[153]:[130]
  624. 625 [153][166]11)"STOP(null)"
  625. 626 [153][166]25)"STOPSTEPWAITSTEP"
  626. 627 [153][166]6)"STOP(null)    AND              WAIT"
  627. 628 [153][166]13)"STOP             "
  628. 629 [153][166]16)"          "
  629. 630 [153][166]11)"(null)"[166]6)"PEEK )(null)   "
  630. 631 [153][166]18)"MID$LENLENLEN   "
  631. 632 [153][166]22)"   "
  632. 633 [153][166]22)"   "
  633. 634 [153][166]21)"LOGPOSPOSPOSWAITCOS
  634. 635 POKE53275,PEEK(53275)OR254
  635. 636 X=40:Y=198:GOSUB115:X=130:Y=200:GOSUB124:X=250:Y=198:GOSUB60:RETURN
  636. 637 GOSUB146:REM BAU KOALA
  637. 638 PRINT"   ";:FOR Z=1 TO 34:PRINT"[175]";:NEXT:PRINT
  638. 639 PRINTSPC(2);:FORZ=1TO18:PRINT"[206][205]";:NEXT:PRINT
  639. 640 PRINTSPC(2);:FORZ=1TO18:PRINT"[205][206]";:NEXT:PRINT
  640. 641 PRINT"   [183][183][183][183][183][149][208][208][183][183][183][183][183][183][183][183][183][183][183][183][183][208][183][214][183][207][183][183][183][183][183][183][183][183][183]
  641. 642 [153][166]8)"VERIFY++"[166]13)"+(null) (null)SGN
  642. 643 PRINTSPC(8)"[149][170][170]"SPC(13)"[170][205] [206][180]
  643. 644 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]5)"+CLOSE(null) SGN"
  644. 645 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT    +(null) (null)SGN"
  645. 646 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT   +(null) (null)SGN"
  646. 647 [153]"SQRANDSQRANDWAIT    VERIFY++"[166]8)"SQRANDSQRWAIT  + (null) SGN"
  647. 648 [153]"ANDSQRANDSQRWAIT     STOP(null)"[166]8)"ANDSQRANDSQRWAIT +(null) (null)SGN"
  648. 649 [153]"SQRANDSQRANDWAIT   VERIFY(null)   (null)"[166]6)"SQRANDSQRANDWAIT +(null) (null)SGN"
  649. 650 [153]"ANDSQRANDSQRWAIT  VERIFY(null)     (null)     ANDSQRANDSQRWAIT + (null) SGN"
  650. 651 [153]"SQRANDSQRANDWAIT  STOPUSRUSRUSRUSRUSRUSRUSR     SQRANDSQRANDWAIT +(null) (null)SGN"
  651. 652 [153]"ANDSQRANDSQRWAIT              ANDSQRANDSQRWAIT +(null) (null)SGN"
  652. 653 [153]"SQRANDSQRPOSWAIT              SQRANDSQRANDWAIT + (null) SGN"[166]8)"SQR"
  653. 654 [153]"ANDSQRANDSQRWAIT"[166]14)"ANDSQRANDSQRWAIT +(null) (null)SGN"[166]8)"ANDSQR"
  654. 655 [153]"SQRANDSQRANDWAIT"[166]14)"SQRANDSQRANDWAIT +(null) (null)SGN"[166]8)"SQRANDSQR"
  655. 656 [153]"ANDSQRANDSQRWAIT"[166]14)"ANDSQRANDSQRWAIT + (null) SGN"[166]8)"ANDSQRANDSQR";
  656. 657 [129]Z[178]1[164]2:[153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRAND";
  657. 658 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQR";:[130]
  658. 659 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRAND";
  659. 660 X[178]60:Y[178]160:[141]120:X[178]160:Y[178]200:[141]77:X[178]215:[129]XH[178]160[164]80[169][171]10
  660. 661 [129]Y[178]XH[164]XH[171]20[169][171]2:[141]117:[130]:[129]Y[178]XH[171]20[164]XH[171]10:[141]117:[130]:[130]:[142]
  661. 662 [141]146
  662. 663 [153]
  663. 664 [153]"";:[129] Z[178]1 [164] 33:[153]"AND";:[130]:[153]
  664. 665 [153]"<><><><v><><><><><><><><><><><><>
  665. 666 PRINT"[144]    [146][183]pn[183]mo[183][183][183][183][183][183][183][149]T[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  666. 667 [153]"     +m nSGN"[166]7)"VERIFYb
  667. 668 PRINT"     [170] v [180]"SPC(7)"[149]S"SPC(14)"[158][169]
  668. 669 [153]"     +n mSGN"[166]6)"VERIFYn m"[166]12)"SYSSTEP  
  669. 670 PRINT"     [170]m n[180]     [149]n   m"SPC(10)"[158][169]    [169]
  670. 671 [153]"     + (null) SGN    STOPTAB(TAB(TAB(TAB(TAB(TAB(TAB("[166]8)"SYSSTEP        (null)
  671. 672 PRINT"     [170][206] [205][180]           "SPC(7)"[158][169]          [223]";
  672. 673 PRINT"[175][186][146]   [170][205] [206][180]
  673. 674 [153]"SQRANDSQRWAIT  + v SGN     FORSTEP
  674. 675 PRINT"[175][186][175][186][146] [170]n m[180]  [129][169][169]  
  675. 676 [153]"SQRANDSQRANDSQRWAIT+m nSGN FORSTEP      
  676. 677 PRINT"[175][186][175][186][175][186][146] v [180][129][169]        
  677. 678 [153]"SQRANDSQRANDSQRANDSQRWAIT mFORSTEP          
  678. 679 PRINT"[175][186][175][186][175][186][175][186][146] [169][146][169][169][146][169]
  679. 680 [153]"SQRANDSQRANDSQRANDSQRANDSQRWAIT STEPWAITSTEP
  680. 681 PRINT"[175][186][175][186][175][186][175][186][175][186][146][169]
  681. 682 [153]
  682. 683 [153]"    ANDSQRANDSQRANDSQRWAIT            WAITSTEP
  683. 684 PRINT"   [175][186][175][186][175][186][175][186][146]          [146][169]
  684. 685 [153]"  ANDSQRANDSQRANDSQRANDSQRANDSQRWAIT   STOPucinUSRUSRUSRUSRpUSRUSRVERIFYFREFRE
  685. 686 PRINT" [175][186][175][186][175][186][175][186][175][186][175][186][146]  [144]bwb     [170]
  686. 687 [153][166]15)"MID$LEN(null)     +ON"
  687. 688 X[178]220:Y[178]140:[141]121:X[178]145:Y[178]100:[141]124:[142]
  688. 689 [141]146
  689. 690 [153][166]7)"";:[129] Z[178]1 [164] 32:[153]"TO";:[130]:[153]
  690. 691 [153][166]6)"<><><><><><><><><><><><><><><><><>";
  691. 692 [153][166]7)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(pnmoTAB(TAB(TAB(TAB(TAB(oTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(
  692. 693 PRINT"   [186][175][186][146]"SPC(10)"[170]mn[180]     [180]
  693. 694 [153]"   ANDSQRANDSQRANDSQRWAIT"[166]7)"+nmSGN     SGN
  694. 695 PRINT"   [186][175][186][175][186][175][186][146]"SPC(6)"[170]mn[180]     [180]
  695. 696 [153]"   ANDSQRANDSQRANDSQRANDSQRWAIT     +(null)(null)SGN     SGN
  696. 697 PRINT"   [186][175][186][175][129][169]       [223][146][170][205][206][180]   [151][223]  [146][169]
  697. 698 [153]"   ANDSQRANDSQRANDFOR ANDSQRPOKEWAIT(null)  FOR WAIT +(null)(null)SGNSTOP(null)   POKE  WAIT
  698. 699 PRINT"   [186][175][186][175][186][129] [186][175][146] [151]m [129] [151][146]m[170]mn[180][144][182][146]   [151][188][190][146]  [158][169]        
  699. 700 [153]"   ANDSQRANDSQRANDFOR ANDSQRWAIT  POKEmFOR WAIT +nmSGNSTOPABSWAIT    SYSSTEPSTEP          
  700. 701 PRINT"[186][175][186][175][186][175][186][186][129] [176]ccc[174] [146] [170]mn[180][144][182][146]   [158][169]              ";
  701. 702 PRINT"[175][186][175][186][175][186][175][186][129] b  cb [151][146]m[144]pom[180][144][182]
  702. 703 [153]"SQRANDSQRANDSQRANDWAIT  FOR b   b         
  703. 704 PRINT"[175][186][175][186][175][186][146]  [129] [171]ccc[179] ucciuci [146]"SPC(7)"[158][169]
  704. 705 [153]"SQRANDSQRANDSQRANDWAIT  FOR /cccEXP FRE  FREFRE FRE WAITWAIT  WAITSTEP  SYSSTEP  STEP
  705. 706 PRINT"[175][186][175][186][175][186][146] [129][169]               [146] [146]  [158][169]      
  706. 707 [153]"SQRANDSQRANDSQRANDWAIT FOR STOPWAITuccccccccccccciFOR WAIT  WAIT SYSSTEP        
  707. 708 PRINT"[175][186][175][186][175][186][175][186][175][186][129]cccccccccccq[144][146]b[129] [151][146]m [129] [158][169]          
  708. 709 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRSTOPWAITccccccccccck  POKEmFOR SYS           ";
  709. 710 [153]"ANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]10)"POKEm  SYSSTEP              ";
  710. 711 [153]"SQRANDSQRANDSQRANDSQRANDSQRANDSQRANDSQRWAIT"[166]10)"POKEm   m
  711. 712 PRINT"[175][186][175][186][175][186][175][186][175][186][175][186][175][186][146]"SPC(10)"[151]m   m
  712. 713 [153][166]25)"m   m
  713. 714 Y=195:FORXH=47TO225STEP5:X=XH:GOSUB65:X=XH-47:GOSUB131:NEXTXH:X=225
  714. 715 GOSUB77:FORX=225TO240:Y=Y+1:GOSUB131:NEXTX:RETURN
  715. 716 GOSUB146
  716. 717 PRINT"     [158][146]"SPC(12)" [146]"SPC(13)"[169][146][169]
  717. 718 [153][166]6)"WAIT"[166]11)" WAIT"[166]12)"STEPWAITSTEP
  718. 719 PRINTSPC(7)"[146]"SPC(10)" [146]"SPC(11)"[169][146][169]
  719. 720 [153][166]8)"WAIT"[166]9)" WAIT"[166]10)"STEPWAITSTEP
  720. 721 PRINTSPC(9)"[146]"SPC(8)" [146]"SPC(9)"[169][146][169]
  721. 722 [153]:[153]
  722. 723 [153][166]8)"FOR*NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWRND"
  723. 724 [153][166]8)"GET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET"
  724. 725 [153]"VERIFYNEWNEWNEWRND    FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET"[166]6)"VERIFY    ABSWAIT  *NEWNEWNEW";
  725. 726 [153]"CONT   VERIFYWAITGET    FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET"[166]6)"VERIFY WAIT PEEK ABSWAIT  GETCONT   ";
  726. 727 [153]"   VERIFYWAITGET    FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET   VERIFYMID$=(null) WAITLEN(null)LENABSWAIT  GETCONT   ";
  727. 728 [153]"  POKE*VERIFYWAITGET    FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET    VERIFY(null) (null)WAIT PEEK ABSWAIT  GETCONT (null)(null)";
  728. 729 [153]"  POKE*VERIFYWAITGET    FORGET(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)FORWAITGET    VERIFYPEEK     ABSWAIT  GETCONT(null) (null)";
  729. 730 [153]"POKE***VERIFYWAITGET    FORLOGNEWNEWNEW NEWNEWNEWNEWNEW NEWNEWNEWWAITCOS    VERIFYPEEK     ABSWAIT  GET (null)CONT ";
  730. 731 [153]"POKE**WAITSTEPVERIFYGET"[166]8)"FOR WAIT      WAIT"[166]8)"VERIFYb     ABSWAIT  GETWAIT  ";
  731. 732 [153]"POKE*WAITSTEPVERIFYSTEPWAITSTEP"[166]6)"* FOR WAIT      WAIT  VERIFY WAITGET  * VERIFYb     ABSWAIT  WAIT ";
  732. 733 [153]"POKEWAITSTEPVERIFYSTEPWAITSTEP     FORSTEP       WAITNEW WAITNEW VERIFY WAITGETFORSTEP       WAIT     VERIFYWAIT";
  733. 734 [153]"VERIFYSTEPWAITSTEPSTEPWAIT    FORSTEP  VERIFY    FOR   WAIT    STEP  VERIFY    FOR   WAIT    VERIFYWAIT";
  734. 735 [153]"WAITSTEPSTEP WAIT"[166]6)"FORGETVERIFY+  SGN FORGETWAIT"[166]8)"GETVERIFY+  SGN FORGETWAIT"[166]6)" VERIFYWAIT";
  735. 736 [153]"ABS  WAIT"[166]6)"FORGETVERIFY+FREFRESGN FORGETWAIT"[166]8)"GETVERIFY+FREFRESGN FORGETWAIT"[166]6)"  WAITINT";
  736. 737 [153]"ABS  WAIT     FORSTEPWAITSTEPVERIFYpUSRUSRo FORWAIT"[166]6)"STEPWAITSTEPVERIFYpUSRUSRo FORWAIT       WAITINT";
  737. 738 [153]"ABS WAITSTEP"[166]7)"VERIFY+  SGN"[166]11)"+  SGN"[166]8)" WAITINT";
  738. 739 [153]"ABSSTEP"[166]36)"(null)INTONON"
  739. 740 [142]
  740. 741 [141]146:[153] [199](14)[199](158)[199](8)
  741. 742 [153][163]10)"VALINMALEINS":[153][163]18)"IST ANGESAGT !"
  742. 743 [153][163]2)"LENONCEPT AND DESIGN BY ATNURELIUS VALDER"
  743. 744 [153][163]13)"6551 PEEKOCKENAU":[153][163]1)"(LEN) 1988 BY (null)ARKT & (null)ECHNIK (null)ERLAG ATNCHR$"
  744. 745 [141]89:[141]140:[141]136:[141]140
  745. 746 [153]"LOAD(null)EIN (null)AME IST:"
  746. 747 [153][163]25)"*NEWWAIT *WAITSIN  *NEW":[153][163]25)"LOGWAIT  GET SGN LOG"
  747. 748 [153][163]25)"*WAIT  GET SGN *":[153][163]25)"LOGWAITNEW LOGSINWAIT  LOGWAITNEW"
  748. 749 X[178]90:[129]Y[178]120[164]200:[141]60:[130]Y
  749. 750 [141]56:[151]2044,36:[129]X[178]90[164]170:[141]65:[130]X:[141]77
  750. 751 [153][163]3)"SYS(null)PIELANLEITUNG?":[153][163]3)"MID$A ODER NEIN? (J/N)":S$[178]""
  751. 752 [161]S$:[139]S$[178]""[167]752
  752. 753 [139]S$[178]"MID$"[176]S$[178]"J"[167]:[137]811
  753. 754 [158]49420:[158]49312
  754. 755 [141]89:[141]229:ZE[178]20:SA[178]14:AZ[178]1:EZ[178]12[172]CF:UH%[178]0:UE%[178]1300[172]CT:FR%[178]0:BI%[178]1
  755. 756 [141]143:[145]RC[137]755,850
  756. 757 [141]256:ZE[178]2:SA[178]29:BI%[178]2:FR%[178]1:[141]143:[145]RC[137]755,850
  757. 758 [141]282:ZE[178]5:SA[178]6:BI%[178]3:FR%[178]0:[141]143:[145]RC[137]755,850
  758. 759 [141]313:ZE[178]2:SA[178]11:BI%[178]4:FR%[178]1:[141]143:[145]RC[137]755,850
  759. 760 [141]339:ZE[178]2:SA[178]18:BI%[178]5:FR%[178]1:[141]143:[145]RC[137]755,850
  760. 761 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]1:EZ[178]16[172]CF:UH%[178]0:UE%[178]1200[172]CT:FR%[178]1:BI%[178]1:FE%[178]0
  761. 762 [141]143:[145]RC[137]761,850
  762. 763 AZ[178]1:EX[178][165]ZU(3):[139]EX[177]2[167]:[141]802
  763. 764 [141]144:[145]RC[137]761,850
  764. 765 [139]EX[177]2[167]773
  765. 766 [141]464:ZE[178]6:SA[178]8:BI%[178]2:FR%[178]1:[141]143
  766. 767 [151]53275,[194](53275)[175]159
  767. 768 [141]144:[145]RC[137]761,850
  768. 769 [141]493:ZE[178]2:SA[178]14:BI%[178]3:FR%[178]1:[141]143
  769. 770 [151]53275,[194](53275)[175]223
  770. 771 [141]144:[145]RC[137]761,850
  771. 772 [141]521:ZE[178]2:SA[178]17:BI%[178]4:FR%[178]1:[141]143:[145]RC[137]761,850
  772. 773 [141]437:ZE[178]10:SA[178]15:BI%[178]5:FR%[178]1:[141]143:[145]RC[137]761,850
  773. 774 [158]49152:[158]49227:[141]89:[141]546:ZE[178]3:SA[178]10:AZ[178]0:EZ[178]18[172]CF:UH%[178]0:UE%[178]1500[172]CT
  774. 775 S$[178]"":[161]S$:[139]S$[178]""[167]775:[143] PAUSE PARKPLATZ
  775. 776 [158]49420:[158]49312
  776. 777 FR%[178]1:BI%[178]1:[141]143:[145]RC[137]774,850
  777. 778 [141]637:ZE[178]8:SA[178]29:BI%[178]2:FR%[178]6:[141]143:[145]RC[137]774,850
  778. 779 AZ[178]1:EX[178][165]ZU(4):[139]EX[177]2[167]:[141]808
  779. 780 [141]144:[145]RC[137]774,850
  780. 781 [139]EX[177]2[167]784
  781. 782 [141]662:ZE[178]17:SA[178]29:BI%[178]3:FR%[178]2:[141]143:[145]RC[137]774,850
  782. 783 [141]689:ZE[178]6:SA[178]29:BI%[178]4:FR%[178]0:[141]143:[145]RC[137]774,850
  783. 784 [141]622:ZE[178]3:SA[178]5:BI%[178]5:FR%[178]1:[141]143
  784. 785 [151]53275,[194](53275)[175]1
  785. 786 [141]144:[145]RC[137]774,850
  786. 787 [141]89:[141]716:[153][199](19);"":[153][163]11)"IHR SEID"
  787. 788 [153][163]12)"KURZ VOR":[153]"ONON":[153][163]12)"DEM ZIEL!":[129]XH[178]0[164]2000:[130]
  788. 789 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]2:EZ[178]19[172]CF:UH%[178]0:UE%[178]500[172]CT:FR%[178]1:BI%[178]2:FE%[178]0
  789. 790 X[178]55:Y[178]200:[141]118:Y[178]150:X[178]247:[141]119
  790. 791 [141]143:[145]RC[137]787,787
  791. 792 [141]89:[141]716:[153][199](19);"":[153][163]11)"NUR NOCH"
  792. 793 [153][163]12)"DREI":[153]"ONON":[153][163]12)"AUFGABEN!":[129]XH[178]0[164]2000:[130]
  793. 794 [141]89:[141]716:ZE[178]9:SA[178]11:AZ[178]5:EZ[178]19[172]CF:FR%[178]1:BI%[178]4
  794. 795 X[178]55:Y[178]200:[141]118:Y[178]150:X[178]247:[141]119:X[178]85:Y[178]150:[141]120:[141]29:[141]39
  795. 796 [139]UH%[177][178]UE%[176]FE%[177]0[167]:X[178]50:Y[178]180:[141]120:[129]XH[178]0[164]300:[130]:[151]53269,[194](53269)[175]223
  796. 797 [129]XH[178]0[164]900:[130]:[141]89:[141]134
  797. 798 [141]144:[145]RC[137]761,850
  798. 799 [141]89:[141]716:[153][199](19);"":[153][163]10)"AUFLOESUNG:"
  799. 800 [153][163]11)"STOPUEBUNG":[153][163]10)"MACHT DEN":[153][163]13)"MEISTER!"
  800. 801 [129]XH[178]0[164]2500:[130]:[137]850
  801. 802 [141]365:ZE[178]5:SA[178]26:BI%[178]2:FR%[178]0:[141]143
  802. 803 [151]53275,[194](53275)[175]63
  803. 804 [141]144:[145]RC[137]807,807
  804. 805 [141]390:ZE[178]4:SA[178]15:BI%[178]3:FR%[178]0:[141]143:[145]RC[137]807,807
  805. 806 [141]412:ZE[178]3:SA[178]1:BI%[178]4:FR%[178]6:[141]143
  806. 807 [142]
  807. 808 [141]573:ZE[178]15:SA[178]28:BI%[178]3:FR%[178]7:[141]143:[145]RC[137]810,810
  808. 809 [141]596:ZE[178]8:SA[178]12:BI%[178]4:FR%[178]6:[141]143
  809. 810 [151]53275,[194](53275)[175]191:[142]
  810. 811 [141]89:CO[178]11:CS[178]11:[141]147:[153] [199](14 );
  811. 812 [153]:[153]:[153]
  812. 813 [153]"     ede SYSIST AUF DER sUCHE NACH DEM gE-
  813. 814 PRINT" HEIMNIS DES eINMALEINS. uM IHM ZU HEL-
  814. 815 [153]" FEN, MUSST dU DIE aUFGABEN IM bILD DER
  815. 816 PRINT" rEIHE NACH RICHTIG LOESEN. wENN dU DAS
  816. 817 [153]" IN DER VORGEGEBENEN zEIT SCHAFFST,
  817. 818 PRINT" KOMMST dU EIN bILD WEITER, SO GEHT ES
  818. 819 [153]" VOM lAND IN DIE sTADT, WO DIE lOESUNG
  819. 820 PRINT" DES eINMALEINS ZU FINDEN IST.
  820. 821 [153]" eINGEGEBENE zAHLEN LASSEN SICH NICHT
  821. 822 PRINT" MEHR KORRIGIEREN. bEI EINEM fEHLER
  822. 823 [153]" SPRINGT DER fEHLERTEUFEL, WENN dU ZU
  823. 824 PRINT" LANGSAM BIST, ERSCHEINT DIE sCHNECKE
  824. 825 [153]" UND ede SYSWIRD ZURUECKGESCHICKT. lIEGST
  825. 826 PRINT" dU GUT IM rENNEN, WIRD EIN uHU SICHT-
  826. 827 [153]" BAR.
  827. 828 PRINT:PRINT
  828. 829 PRINTSPC(6)"vIEL sPASS UND gLUECK!
  829. 830 [153]:[153]
  830. 831 [153][166]6)"(null)EITER MIT (null)(null)ATNLENVAL."
  831. 832 [161]S$:[139]S$[179][177]" "[167]832
  832. 833 [153][199](147)
  833. 834 [153]:[153]:[153]:[153]:[153][166]2)[199](14)"SYS(null)AEHLE JETZT STR$EIN (null)EVEL."
  834. 835 [153]:[153][166]8)"(null)ASTE  P  FUER (null)ROFI"
  835. 836 [153][166]8)"(null)ASTE  S  FUER SCHWER":[153][166]8)"(null)ASTE  M  FUER MITTEL"
  836. 837 [153][166]8)"(null)ASTE  L  FUER LEICHT"
  837. 838 [153][166]8)"(null)ASTE  E  FUER VALINSTEIGER"
  838. 839 [161]S$:[139]S$[178]"P"[176]S$[178]"(null)"[167]:CT[178].9:CF[178]1:[137]845
  839. 840 [139]S$[178]"S"[176]S$[178]"(null)"[167]:CT[178]1.2:CF[178].8:[137]845
  840. 841 [139]S$[178]"M"[176]S$[178]"(null)"[167]:CT[178]1.2:CF[178].5:[137]845
  841. 842 [139]S$[178]"L"[176]S$[178]"(null)"[167]:CT[178]1.6:CF[178].5:[137]845
  842. 843 [139]S$[178]"E"[176]S$[178]"VAL"[167]:CT[178]5:CF[178].5:[137]845
  843. 844 [137]839
  844. 845 [153]:[153]:[153]:[153]:[153][166]2)"(null)AEHLE JETZT STR$EINE (null)EIHE, VON 2 BIS"
  845. 846 [153][166]2)"19 ODER 0 FUER UNGEORTNET.":CR[178]0
  846. 847 [141]148
  847. 848 [139]S$[178]"1"[167]:CF[178].5:CR[178]10:[141]148
  848. 849 CR[178]CR[170][197](S$):[137]754
  849. 850 CO[178]11:CS[178]11:[141]147
  850. 851 [139]CL[177][178]3[167]:[153]:[153]" VALSTR$VAL SYSEMPFIEHLT:":[153]" (null)AEHLE EIN NIEDRIGERES (null)EVEL."
  851. 852 [139]CM[177][178]3[167]:[153]:[153]" VALSTR$VAL SYSEMPFIEHLT:":[153]" (null)EBE NOCH DIE"CX"'ER (null)EIHE."
  852. 853 CL[178]0:CX[178]0:CM[178]0:[129]N[178]0[164]9:CE(N)[178]0:[130]:[137]834
  853. 854 [128]
  854.